textbox1.Text.Remove(textboxbox1.Text.Length - 4, 4)

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln

        Dim ret1 As Integer
        Dim ret2 As Integer
        Dim Val1 As Integer
 
 
        ret1 = TextBox1.Text.IndexOf("(")
        ret2 = TextBox1.Text.IndexOf(")")
 
        Val1 = ret2 - ret1 - 1

    Function ReplaceString(ByVal input As String) As String
        Return Regex.Replace(input, "(\d+)", String.Empty)
    End Function

    Function ReplaceString(ByVal input As String) As String
        Return Regex.Replace(input, "\(\d+\)", String.Empty)
    End Function

Ralf

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln