FormatString.bas

Public Function FormatString(ByVal sFormat As String, _
                             ParamArray arg() As Variant)
    Dim idx As Integer
 
    For idx = LBound(arg) To UBound(arg)
        sFormat = Replace(sFormat, "{" & idx & "}", arg(idx))
    Next idx
    FormatString = sFormat
End Function
Sub UnitTest()
    Dim strURL As String, strUser As String, strToken As String, strOp As String
    strUser = "heo"
    strToken = "930kdoakdlcaj"
    strOp = "topup"
    
    strURL = "https://hocexcel.online/register.js?username={0}&token={1}&operation={2}"
    'strURL= "https://hocexcel.online/register.js?username=" & struser & "&token=" & strToken & "&operation=" & strOp
    Debug.Print FormatString(strURL, strUser, strToken, strOp)
    'https://hocexcel.online/register.js?username=heo&token=930kdoakdlcaj&operation=topup
End Sub