hvordan sletter man de sidste bogstaver i textbox ????

Hvad mener du egentlig? Sletter med kode eller ??

Private Sub Command1_Click()
  Text1 = SletLeft(Text1, 1) \'sletter /
  Text1 = SletRight(Text1, 7) \'sletter http://
End Sub

Private Sub Form_Load()
  Text1.Text = \"http://www.eksperten.dk/\"
End Sub

Public Function SletLeft(Text As String, num As Long) As String
  If Len(Text) >= num Then
    SletLeft = Left(Text, Len(Text) - num)
      Else
    SletLeft = Text
  End If
End Function

Public Function SletRight(Text As String, num As Long) As String
  If Len(Text) >= num Then
    SletRight = Right(Text, Len(Text) - num)
      Else
    SletRight = Text
  End If
End Function

text1.text = left(text1.text,len(text1.text)-AntalBogstaverSomSkalSlettes)

ok tak for hjælpen :)