Convert GPS Coordinates

Sub dms(st As String) As Double
Dim d,m,s As Double
d = st.SubString2(0,3)
m = st.SubString2(4,6)/60
s = st.SubString2(7,9)/3600
Return NumberFormat(d+m+s , 1,6)
End Sub

Sub Globals
   Dim Label1 As Label
   Dim Label2 As Label
   Dim EditText1 As EditText
   Dim EditText2 As EditText
   Dim Input As String
   Dim Output As Double
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("GPSUmrechner")
    
End Sub

Sub Button1_Click
    Input=EditText1.Text
   Output = dms(Input)
   EditText2.Text = Output

Sub dms(st As String) As Double
   Dim d,m,s As Double
   d = st.SubString2(0,3)
   m = st.SubString2(4,6)/60
   s = st.SubString2(7,9)/3600
   Return NumberFormat(d+m+s , 1,6)
End Sub

Sub Button1_Click
    Input=EditText1.Text
    Output = dms(Input)
    EditText2.Text = Output
End Sub