In questo modo?

codice:
    Dim Capitale As Single    Dim NRate As Integer
    Dim Rata As Single
    Dim Interesse As Single
    Dim Figurato As Single
    Dim Domanda(3) As String
    Dim Dati(3) As String
    Dim I As Integer
    
    Domanda(1) = "Inserisci Capitale"
    Domanda(2) = "Inserisci Rate"
    Domanda(3) = "Inserisci Tasso Interesse"
    
    I = 0


    Do
        I = I + 1
        Dati(I) = InputBox(Domanda(I))
        
        If Dati(I) = "" Then
            MsgBox "Devi inserire un numero"
        ElseIf IsNumeric(Dati(I)) = False Then
            MsgBox "Il valore inserito non è un numero"
        Else
            Cells(3 + I, 2).Value = CSng(Dati(I))
        End If
    Loop Until I = 3