Hallo Andreas,

schau mal, ob Dir dieses schon weiterhilft:

Sub Test()
 Debug.Print OhneNull("P020")
End Sub

Function OhneNull(Wert As String) As String
 Dim i As Integer
 
 OhneNull = Wert
 For i = 2 To Len(OhneNull)
  If Mid(OhneNull, i, 1) = "0" Then
   OhneNull = Left(OhneNull, i - 1) & "(" & Mid(OhneNull, i + 1) & ")"
   Exit For
  End If
 Next i
End Function

viele Grüße Karl-Heinz