Function DioP(DioN As String) As String
Dim Br As Integer
Dim DioK As String

DioN = DioN & ","
For Br = 1 To Len(DioN)
     DioK = Left(DioN, Br)
     If Right(DioK, 1) = "=" Then
         DioP = Left(DioN, Br - 1) & "," & Right(DioN, Len(DioN) - Br)
         GoTo Kraj:
     End If
Next Br
Kraj:
End Function