' 度分秒表記の角度を十進表記に変換する
Dim MyArray, Msg1, Msg2
MyString = inputbox("度　分　秒")
If MyString <> "" Then
	MyArray = Split(MyString," ",-1, 1) ' 区切り文字はスペース。注！省略不可！
	Msg1 = MyArray(0) & "° " & MyArray(1) & " ′" & MyArray(2) & " ″"
	Msg2 = MyArray(0)+ (MyArray(1)/60) + (MyArray(2)/3600)
	MsgBox Msg1 & "=" & Msg2
Else msgbox("何も選択されませんでした。終了します。")
End If