Remove Last Character From String

 Dim str As String
        str = TextBox1.Text
        str = str.Remove(str.Length - 1)
        MsgBox(str)