Sub Teste()
Dim a As String
a = "TG20"
a = SetzeInKlammern(a)
End Sub
Function SetzeInKlammern(Wert As String) As String
Dim i As Integer
SetzeInKlammern = Wert
For i = 2 To Len(Wert)
If Mid(Wert, i, 1) = "0" Then
SetzeInKlammern = Left(Wert, i - 1) & "(" & Mid(Wert, i + 1) & ")"
Exit For
ElseIf Mid(SetzeInKlammern, i, 1) Like "#" Then
SetzeInKlammern = Left(Wert, i - 1) & "(" & Mid(Wert, i) & ")"
Exit For
End If
Next i
End Function