Edittext Focus

Hallo!
How can i get focus to EditText17.Text in this case?


Sub Button2_Click

If EditText4.Text="" Then
Msgbox("Mangler verdi for min","Pulssoft")
Else If EditText5.Text="" Then
Msgbox("Mangler verdi for sek","Pulssoft")
Else
man=EditText4.Text
sek=EditText5.Text
res=((man*60)+sek)
EditText6.Text=Round(res)
EditText17.Text= Round(res)
EditText17. get focus?????????

End If
End Sub

Mvh Volvomann