Tenendo conto di quanto ha suggerito MItaly,
prova in quest'altro modo:
codice:
Private Sub Command1_Click()
    'Variabili di InputBox:
    Dim MessageINx, TitleINx, DefaultINx, ValoreINx
    Dim Num As Variant
    
    Do
        If IsNumeric(ValoreINx) = False And ValoreINx <> "" Then
            MsgBox "Inserire solo numeri"
            ElseIf IsNumeric(ValoreINx) = False And ValoreINx = "" Then
            Exit Do
        End If
        MessageINx = "Immettere il tasso annuo nominale per lo scoperto bancario ( 10,25  per  10,25 % ). Il tasso annuo nominale sarà convertito nel tasso in capitalizzazione trimestrale."    'Imposta il messaggio.
        TitleINx = " Tasso indebitamento bancario a breve"      'Imposta il titolo
        DefaultINx = "10,25"                                    'Imposta il valore predefinito
        ValoreINx = InputBox(MessageINx, TitleINx, DefaultINx)  'Visualizza il messaggio, il titolo e il valore predefinito
    Loop Until IsNumeric(ValoreINx)
         Num = ValoreINx
 End Sub