Dimensionador de Indutores

Option Explicit
Dim Indutancia, Espiras, Diametro, Comprimento
Dim Verificar
Verificar = MsgBox(vbNewLine & "Clique em 'OK' para dimensionar um indutor de núcleo a ar." & vbNewLine & vbNewLine, vbOKCancel, "Dimensionador de Indutores - por rjjj")
If Verificar = vbOK Then
    Espiras = InputBox(vbNewLine & vbNewLine & "Insira o número de espiras (voltas) da bobina. Exemplo: 20." & vbNewLine, "Dimensionador de Indutores - por rjjj")
    If Espiras <> vbNullString And IsNumeric(Espiras) = True Then
        Diametro = InputBox(vbNewLine & vbNewLine & "Coloque abaixo o diâmetro da seção transversal da bobina (em mm). Exemplo: 12,5." & vbNewLine, "Dimensionador de Indutores - por rjjj")
        If Diametro <> vbNullString  And IsNumeric(Diametro) = True Then
            Comprimento = InputBox(vbNewLine & vbNewLine & "Informe o comprimento do indutor (em mm). Exemplo: 35,8." & vbNewLine, "Dimensionador de Indutores - por rjjj")
            If Comprimento <> vbNullString And IsNumeric(Comprimento) = True Then
                Diametro = CDbl(Diametro) / 25.4  ' Aplicação do fator de conversão de mm para pol.
                Comprimento = CDbl(Comprimento) / 25.4  ' Aplicação do fator de conversão de mm para pol.
                Indutancia = ((Diametro ^ 2.0) * (CDbl(Espiras) ^ 2.0)) / ((18.0 * Diametro) + (40.0 * Comprimento))  ' Valor final em µH.
                MsgBox vbNewLine & "Indutância da bobina de núcleo a ar dimensionada:" & vbNewLine & vbNewLine & vbNewLine & "L = " & Round(Indutancia, 3) & " µH" & vbNewLine, vbOKCancel, "Dimensionador de Indutores - por rjjj"
            End If
        End If
    End If
End If