[Resolvido]Duvida Inputbox / Variavel

Sub Transf_Iniciar()

Dim Valor As Variant
Dim DataMov As Date
Valor = Application.InputBox("Digite o valor da Transferência:", "Valor")
DataMov = Application.InputBox("Digite a data do Movimento:", "DATA DO MOVIMENTO")
Historico = Application.InputBox("Processamento BDN: '1' ou Realimentação DBTP '2':", "HISTÓRICO")
DebCred = Application.InputBox("1.556 Digite 'D' ou 1.557 Digite 'C'", "DÉBITO OU CRÉDITO")
CxImprimir = MsgBox("Deseja Imprimir a junção agora?", vbYesNo + vbQuestion, "IMPRIMIR")

Do
If Not IsNumeric(Valor) And resposta <> "" Then
MsgBox "Não é permitido Letras, digite novamente...", vbCritical
Valor = Application.InputBox("Digite o valor da Transferência:", "Valor")
Else
Range("E9").Value = Valor
Exit Do
End If
Loop

Range("M6").Value = DataMov
Range("O9").Value = Historico
Range("D9").Value = DebCred

If CxImprimir = vbYes Then Imp_TransfDados

End Sub

Código:

Dim N As String

Do While Not IsNumeric(N)
    N = InputBox("Digite um número", "Número")
    If Not IsNumeric(N) Then
        If MsgBox("Você deve digitar um número para esse ítem. Deseja tentar novamente?" & vbCrLf & "Clique em Sim para tentar novamente.", vbCritical + vbYesNo, "Erro") = vbYes Then
        Else
            Exit Do
        End If
    End If
Loop

Código:

Dim N As String, C As Boolean

Do While C = False
    N = InputBox("Digite 1 ou 2", "Número")
    If N = "1" Or N = "2" Then
        C = True
    Else
        C = False
    End If
   
    If C = False Then
        If MsgBox("Essa entrada só aceita o número 1 ou o número 2. Deseja tentar novamente?" & vbCrLf & "Clique em Sim para tentar novamente.", vbCritical + vbYesNo, "Erro") = vbYes Then
        Else
            Exit Do
        End If
    End If
Loop

Sub Transf_Iniciar()

Valor = Application.InputBox("Digite o valor da Transferência:", "Valor")

Do
If Not IsNumeric(Valor) And Valor <> "" Then
If MsgBox("Essa entrada só aceita números." & vbCrLf & "Deseja tentar novamente?", vbCritical + vbYesNo, "Confirmação") = vbYes Then
Else
Exit Do
End If
Valor = Application.InputBox("Digite o valor da Transferência:", "Valor")
Else
Range("E9").Value = Valor
Exit Do
End If
Loop

DataMov = Application.InputBox("Digite a data do Movimento:", "DATA DO MOVIMENTO")

Do
If Not IsDate(DataMov) And DataMov <> "" Then
If MsgBox("Essa entrada só aceita formato 'dd/mm/aaaa' ou 'dd-mm-aaaa'." & vbCrLf & "Deseja tentar novamente?", vbCritical + vbYesNo, "Confirmação") = vbYes Then
Else
Exit Do
End If
DataMov = Application.InputBox("Digite a data do Movimento:", "DATA DO MOVIMENTO")
Else
Range("M6").Value = DataMov
Exit Do
End If
Loop

Dim Historico As String, Hist1 As Boolean

Do While Hist1 = False

Historico = Application.InputBox("Processamento BDN: 01" & vbCrLf & "Realimentação DBTP: 02", "HISTÓRICO")
If Historico = "1" Or Historico = "2" Or Historico = "01" Or Historico = "02" Then
Hist1 = True
Range("O9").Value = Historico
Else
Hist1 = False
End If

If Hist1 = False Then
If MsgBox("Essa entrada só aceita o número 1 ou 2. Deseja tentar novamente?" & vbCrLf & "Clique em Sim para tentar novamente.", vbCritical + vbYesNo, "Erro") = vbYes Then
Else
Exit Do
End If
End If
Loop

Dim DebCred As String, DebCred1 As Boolean

Do While DebCred1 = False

DebCred = Application.InputBox("Digite 'D' para Junção de Débito (1.556)" & vbCrLf & "Digite 'C' para Junção de Crédito (1.557)", "DÉBITO OU CRÉDITO")
If DebCred = "D" Or DebCred = "C" Or DebCred = "d" Or DebCred = "c" Then
DebCred1 = True
Range("D9").Value = DebCred
Else
DebCred1 = False
End If

If DebCred1 = False Then
If MsgBox("Essa entrada só aceita a letra 'D' ou 'C'. Deseja tentar novamente?" & vbCrLf & "Clique em Sim para tentar novamente.", vbCritical + vbYesNo, "Erro") = vbYes Then
Else
Exit Do
End If
End If
Loop

CxImprimir = MsgBox("Deseja Imprimir a junção agora?", vbYesNo + vbQuestion, "IMPRIMIR")

If CxImprimir = vbYes Then Imp_TransfDados

End Sub