ivanyung

Option Explicit

Function MyX(MyStr As String)
    Dim Myarr() As String
    Myarr() = Split(MyStr, ";")
   
    Dim i As Integer
    For i = 0 To UBound(Myarr)
        If InStr(1, Myarr(i), "USA") > 0 Then Myarr(i) = "USA"
        If Val(Right(Myarr(i), 5)) > 0 Then Myarr(i) = "USA"
    Next
   
    MyX = Join(Myarr(), ";")
End Function