Solución 3.8 Formatear una palabra

Sub FormatearPalabra ()  
    Dim strPalabra As String, strPalabraFormateada As String 
    strPalabra = InputBox("Introduzca una palabra")  ...