Visual Basic - redondear mas

hola saque este codigo de la web pero me da error me dice SUBINDICE FUERA DEL INTERVALO que puede ser??????
Dim tmp() as string
Dim valor as string
valor = tu textbox.text
tmp = split(valor, ".")
' validas
if CInt(tmp(1)) > 1 and CInt(tmp(1)) <= 99 then
tmp(0) = Cstr(Cint(tmp(0)) + 1)
tmp(1) = "00"
end if
' y lo vuelves a unir
valor = tmp(0) & "." & tmp(1)

El problema puede ser con el elemento 1 del arreglo tmp(), ya que si el textbox no contiene el "." que usas con la función Split, sólo te creará UN elemento para tmp() (el elemento 0).
Supongo que el textbox tiene algun contenido numérico, pero no tiene ".", por eso no te crea el elemento 1. Prueba así, a ver si no te da el error:

valor = "123.56" ' Debe llevar punto, según tu ejemplo con el Split.
tmp = Split(valor, ".")
' validas
if CInt(tmp(1)) > 1 and CInt(tmp(1)) <= 99 then
tmp(0) = Cstr(Cint(tmp(0)) + 1)
tmp(1) = "00"
end if
' y lo vuelves a unir
valor = tmp(0) & "." & tmp(1)

El contenido de la variable "valor" será 124.00

Cuando dimensionás una variable con paréntesis vacíos, es porque no sabes cuantos elementos va a tener. Una vez que en el código lo has averiguado (supongamos 50) tienes que mandar "Redim tmp(50) as string".
Hay algunas variantes opcionales para Redim, consultá la ayuda sobre ella.

Os gusta complicaros la vida. Para redondear un número hacia arriba solo teneis que poner esto:

Dim x As Double
x = Text1.Text
If x > Fix(x) Then x = Fix(x) + 1

parece sencillo, no?