average calculation not working help please just started vb6
 

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