Basole, consegui! Ufaaa!!!
Não consegui exatamente como você mandou, mas foi de grande ajuda, consegui fazer alguns ajustes para adaptar a minha necessidade.
segue código, vou postar a planilha teste que fiz se alguém mais precisar deste tipo de código.
Abraçççç!!!!
Sub Inserir_hora()On Error Resume Next Exibir = "Digite a hora ou Selecione uma Célula:" Título = "INSERT TEMPO/HORA" Tipo = 10 hora = Application.InputBox(Prompt:=Exibir, Title:=Título, Type:=Tipo, Default:="Formato Hora (hh:mm:ss) ex.:24:30:54") If Left(hora, 2) <= 23 Then Hr = Hour(hora) Mn = Minute(hora) SG = Second(hora) If SG > 0 Then Hora_tt = Format(SG, "00") & "s" End If If Mn > 0 Then Hora_tt = Format(Mn, "00") & "m" & Format(SG, "00") & "s" End If If Hr > 0 Then Hora_tt = Format((Hr * 60) + Mn, "00") & "m" & Format(SG, "00") & "s" End If End If If Left(hora, 2) > 23 Then Hr = Format((Left(hora, 2) * 60) + (Mid(hora, 4, 2)), "00") SG = Format(Mid(hora, 7, 2), "00") Hora_tt = Format(Hr, "00") & "m" & Format(SG, "00") & "s" End If Selection.Value = Hora_tt End Sub