Delete a letter from a string

Function Backspace$(St$)

  If Len(St$) = 0 Then Return ""

  Return Left$(St$, Len(St$) - 1)

End Function