Visual Basic - Funcion Rtrim

Quisiera tener el codigo de la funcion Rtrim.

RTRIM QUITA LOS ESPACIOS VACIOS A DERECHA DE UNA CADENA

POR EJEMPLO

VARIABLE = "HOLA AMIGOS "

VARIABLE = RTRIM(VARIABLE)

RESULTADO = "HOLA AMIGOS"

TAMBIEN PODES USAR LTRIM QUE ES IGUAL PERO CON ESPACIOS A IZQUIERDA.

RTRIM SIEMPRE DEVUELVE UN RESULTADO ASI SEA QUE NO REALIZE NINGUNA OPERACIÓN

AFOGUTU.

Aquí tienes una posibilidad:

Function FuncRTrim(ByVal strParam As String) As String

Dim pos As Integer
Dim espacioBlanco As Boolean

pos = Len(strParam)
espacioBlanco = True
While (pos >= 1) And espacioBlanco
If Mid$(strParam, pos, 1) = " " Then
pos = pos - 1
Else
espacioBlanco = False
End If
Wend

FuncRTrim = Mid(strParam, 1, pos)

End Function