Visual Basic - ayuda en function

buenas, quisiera que alguien me ayudara, necesito hacer una funcion en la cual yo introduxca una palabra, sin espacios, y la funcion debe eliminar las letras repetidas dentro de esa palabra. ejemplo: antonio deberia dar como resultado antoi. eso es lo que debe hacer esa funcion. si alguien me ayuda se lo agradezco, ya lo tengo medio hecho solo quye no me da el resultado que deberia dar. bueno gracias de antemano al que me ayude.

Bueno te voy a escribir una funcion pero sin testearla, a ver lo que sale

function kitaRepetidas(byval palabra as string) as string
Dim i as integer,j as integer,letra as string*1,auxletra as string*1
kitaRepetidas = palabra
i=1
do
letra = mid(kitarepetidas,i,1)
j=i+1
do while j <= len(kitaRepetidas)
auxletra = mid(kitaRepetidas,j,1)
if letra = auxletra then
kitaRepetidas = left$(kitaRepetidas,j-1) & right$(kitaRepetidas, len(kitaRepetidas)-j)
end if
j = j + 1
loop
i=i+1
loop while i < len(kitaRepetidas)
end function

Pruebala y si te funciona me lo dices

Bueno probe yo la funcion y no iba bien, aqui la tienes corregida:

Function kitaRepetidas(ByVal palabra As String) As String
Dim i As Integer, j As Integer, letra As String * 1, auxletra As String * 1
kitaRepetidas = palabra
i = 1
Do
letra = Mid(kitaRepetidas, i, 1)
j = i + 1
Do While j <= Len(kitaRepetidas)
auxletra = Mid(kitaRepetidas, j, 1)
If letra = auxletra Then
kitaRepetidas = Left$(kitaRepetidas, j - 1) & Right$(kitaRepetidas, Len(kitaRepetidas) - j)
Else
j = j + 1
End If
Loop
i = i + 1
Loop While i < Len(kitaRepetidas)
End Function

gracias por la ayuda