' 十進表記の角度を度分秒表記に変換する 
Dim MyArray(3), Msg1, MyString(3)
MyString(0) = inputbox("角度（十進）")
If MyString(0) <> "" Then
	MyArray(0) = Fix(MyString(0)) ' Fix関数は、整数部をそのまま取り出す。負数でもOK!
	MyString(1)= MyString(0) - MyArray(0)
	MyArray(1) =  Fix(60*MyString(1))
	MyString(2) = MyString(1) - (MyArray(1)/60)
	MyArray(2) = Fix(3600*MyString(2))
	Msg1 = MyArray(0) & "° " & MyArray(1) & " ′" & MyArray(2) & " ″"
	MsgBox MyString(0) & "=" & Msg1
Else msgbox("何も選択されませんでした。終了します。")
End If