1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        Dim strS As String = "AAA223/" 

        If Microsoft.VisualBasic.Right(strS, 1) = "/" Then 

            Label1.Text = strS.Replace(Microsoft.VisualBasic.Right(strS, 1), "") 

        End If 

 End Sub