Dim temptext1 As String
Dim temptext2 As String
Dim zeicheneinfugen As String
Dim ausgangsstring As String
ausgangsstring = "12345645687237834893939789"
zeicheneinfugen = "a"
temptext1 = Left(ausgangsstring, 2)
temptext2 = Mid(ausgangsstring, 3, Len(ausgangsstring) - 2)
ausgangsstring = temptext1 + zeicheneinfugen + temptext2