Заменить функцию InStrRev функциями Right, Mid или другими функции

Sub PR6()
Dim S1 As String
Dim S2 As String
Dim a As Byte
Dim b As Byte
S1 = InputBox("Введите строку")
a = InStr(S1, ",")
If a = 0 Then
MsgBox ("В строке нет запятых")
Else
S2 = Replace(S1, ",", "*")
b = InStrRev(S1, ",")
If b = 0 Then
MsgBox ("В строке одна запятая в позиции ") & a & vbLf & vbLf & S2
Else
S2 = Replace(S1, ",", "*")
MsgBox ("Первый и последний запятые в позициях ") & a & " и " & b & vbLf & vbLf & S2
End If
End If
End Sub

Sub PR6()
Dim S1$, a&, b&, n&, mARR()
S1 = InputBox(Prompt:="Введите строку", _
                Default:="Fsdas, dssss - 2334, asgl as;;b'df, xlgtabis.")
n = 0
    If InStr(1, S1, ",", vbTextCompare) = 0 Then
        MsgBox "Нет никаких запятых."
        Exit Sub
    End If
    Do
        For a = 1 To Len(S1)
            b = InStr(a, S1, ",", vbTextCompare)
                If b <> 0 Then
                    n = n + 1
                    ReDim Preserve mARR(1 To n)
                    mARR(n) = b: a = b + 1
                End If
        Next 'a
    Loop Until a <> Len(S1)
    If UBound(mARR) = 1 Then
        MsgBox "В строке одна запятая в позиции - " & mARR(UBound(mARR))
            Else
                MsgBox "Первая и последняя запятые в позициях " & _
                    mARR(LBound(mARR)) & "  и  " & mARR(UBound(mARR))
    End If
End Sub

Sub v2_PR6()
    Dim S1$
    S1 = InputBox(Prompt:="Введите строку", _
                Default:="Fsdas, dssss - 2334, asgl as;;b'df, xlgtabis.")
    If InStr(1, S1, ",", vbTextCompare) = 0 Then
        MsgBox "Нет никаких запятых."
        Exit Sub
    End If
    If InStr(1, S1, ",", vbTextCompare) = InStrRev(S1, ",", -1, vbTextCompare) Then
        MsgBox "В строке одна запятая в позиции - " & _
                                                InStr(1, S1, ",", vbTextCompare)
            Else
                MsgBox "Первая и последняя запятые в позициях " & _
                    InStr(1, S1, ",", vbTextCompare) & " и " & _
                        InStrRev(S1, ",", -1, vbTextCompare)
    End If
End Sub

Function instrr(S as string, w as string) As long
  l&=len(w)
  For i&=Len(S) to 1 step -1
       if Mid$(S,i&,l&)=w then
          instrr=i
          exit for
       end if
  Next i&
End Sub

First&=Instr(1,mstr$,",",vbTextCompare)
Second&=Len(mstr$) - (Instr(1,strReverse(mstr$),",",vbTextCompare) - 1)