Visual Basic para Aplicaciones - AYUDA CON ESTE ALGORITMO

HOLA A TODOS:

SOY UN ESTUDIANTE DE INGENIERIA INFORMATICA, ME PUSIERON A DESARROLLAR ESTE ALGORTIMO EL CUAL NO S EPOR QUE NO ME HA DADO CUANDO LO EJECUTO EN EXCEL, ESTE ES EL EJERCICIO:

SE TIENE X ARCHIVO DE UN RESTAURANTE. SI LA CUENTA EXCEDE LOS $ 100.000 PESOS COLOMBIANOS, SE CALCULA UNA BONIFICACION PARA LOS MESEROS DEL 5.5%. DEVO HALLAR:

1) IMPRIMIR LA SUMA TOTAL DE LAS CUENTAS SUPERIORES A 100.000.
2) EL VALOR TOTAL QUE OBTIENEN LOS MESEROS CON BONIFICACION.
ESTE EL EJEMPLO QUE HIZE YO EN EXCEL:

Sub PRUEBA_CARLOS()

Dim MESA, CUENTA As String

Dim A, B As Integer ' A ES MESA, B ES VALOR TOTAL DE LA CUENTA'

Dim I As Integer

BONIFICACION = 0

CUENTA = 0

I = 1

For I = 1 To 100

A = A2 & I

Range("A2").Select

A = ActiveCell.Value

B = B2 & I

Range("B2").Select

B = ActiveCell.Value

Do While A <> "()"

If ActiveCell.Value > 100000 Then

CUENTA = CUENTA + (ActiveCell.Value * 0.0055)

MESA = MESA + ActiveCell.Value

MsgBox " LA MESA NRO " & MESA + ActiveCell.Value

End If

MsgBox " LA CUENTA ES: " & CUENTA + (ActiveCell.Value * 0.0055)




Loop

Next I

End Sub

MI PREGUNTA ES: QUE HAY DE MALO CON MI ALGORITMO? QUE ME FALTA Y COMO PUEDO HACER PARA QUE ME FUNCIONE CUANDO COLOCO UN VALOR CUALQUIERA Y COMO PUEDO REEMPLAZAR EL MSGBOX USANDO LA OPCION USERFORM, DONDE HAGO UNA PEQUENA VENTANA CON EL NOMBRE D ELA MESA EL ESPACIO PARA LA CANTIDAD Y EL OTRO EL VALOR TOTAL CON EL RESPECTIVO ESPACIO PARA LA CANTIDAD.

MUCHAS GRACIAS