Up date button in User form

Private Sub cmdUpdate_Click()
Dim Currentrow as string
Dim Sln As String, ANames As String, Aage As Integer, Asex As String, Adoa As String, APhone As String, AcomboBox As String
Sln = SlNo.Text
ANames = Names.Text
Aage = Age.Value
Asex = ***.Text
Adoa = DOA.Text
APhone = Phone.Text
AcomboBox = ComboBox1.Text
With ActiveSheet
Cells(currentrow, 1).Value = Sln
ANames = Names.Text
Cells(currentrow, 2).Value = AName
Aage = Age.Value
Cells(currentrow, 3).Value = Aage
Asex = ***.Text
Cells(currentrow, 4).Value = Asex
Adoa = DOA.Text
Cells(currentrow, 5).Value = Adoa
APhone = Phone.Text
Cells(currentrow, 6).Value = APhone
AcomboBox = ComboBox1.Text
Cells(currentrow, 72).Value = AcomboBox
End With
End Sub


SlNo Age , *** DOA.... are names of textBox

Please modify it