Private Sub Average_Click()
Dim Test1 As Integer
Dim Test2 As Integer
Dim Test3 As Integer
Dim Test4 As Integer
Dim Test5 As Integer
Dim Test6 As Integer
Dim Average As String
Test1 = txtTest1.Text
Test2 = txtTest2.Text
Test3 = txtTest3.Text
Test4 = txtTest4.Text
Test5 = txtTest5.Text
Test6 = txtTest6.Text
Average = txtTotalAverage.Text
End Sub
Private Sub cmdClear_Click()
'clears all text boxes
txtTest1.Text = ""
txtTest2.Text = ""
txtTest3.Text = ""
txtTest4.Text = ""
txtTest5.Text = ""
txtTest6.Text = ""
txtTotalAverage.Text = ""
End Sub
Private Sub cmdCalculate_Click()
txtTotalAverage = (txtTest1.Text) + (txtTest2.Text) + (txtTest3.Text) + (txtTest4.Text) + (txtTest5.Text) + (txtTest6.Text) / 6
End Sub