Call Application.Run("SAPSetRefreshBehaviour", "Off")
Call Application.Run("SAPExecuteCommand", "PauseVariableSubmit", "On")

Dim lResult As Long     ' Used for debugging only

lResult = Application.Run("SAPSetVariable", "your variable name", "your value", "INPUT_STRING", "your dataset")

If lResult = 0 Then
    vLastError = Application.Run("SAPGetProperty", "LastError", "Text")
    MsgBox vLastError
    Exit Sub
End If

Call Application.run("SAPExecuteCommand", "PauseVariableSubmit", "Off")
Call Application.run("SAPSetRefreshBehaviour", "On")
Call Application.run("SAPExecuteCommand", "RefreshData", "ALL")