Cómo diseñar un programa vb que convierta unidades de ángulos en grados, minutos y segundos

Subcomando privado1_Click() x = Val(Text1. du = Fix(x) x = (x - du) * 60 fen = Fix(x) x = (x - fen) * 60 miao = x Print Text1 & "=" & du & "grados" & fen & miao & "segundos"

End Sub

Si solo quieres conservar los dos dígitos de segundos Para decimales, puede reemplazar miao en la línea anterior con Format(miao, "0.00")