Sumar 2 números en Visual Basic

Código escrito en Visual Basic para Aplicaciones
Pide un Nombre y lo convierte a Mayúsculas, luego pide dos números y muestra el resultado de la Suma, Ademas cuenta los caracteres que contiene el nombre ingresado.

Private Sub sumar()
Dim a As String
Dim b As Integer
Dim n1, n2 As Double
' el Do hace obligatorio el ingreso de datos en el inputbox
Do
a = InputBox("Ingresa tu nombre", "Hecho por J.R.")
Loop Until a <> ""
' UCase convierte una cadena de caracteres en MAYUSCULAS y LCase en minusculas
a = UCase(a)
Do
n1 = InputBox("Hola " & a & " ingresa un numero", "Hecho por J.R.", "El número puede ser entero o decimal")
Loop Until a <> ""
Do
n2 = InputBox("Hola " & a & " ingresa otro numero", "Hecho por J.R.", "El número puede ser entero o decimal")
Loop Until a <> ""
MsgBox ("" & a & " La suma de los numeros ingresados es: " & n1 + n2), vbInformation, "Hecho por J.R."
b = Len(a)
MsgBox ("El nombre " & a & " tiene " & b & " caracteres")
End Sub

Código escrito por:  Joél Rodríguez