Function gettextCSCM()
    Dim pCustNumber As String
    Dim pRequestNumber As String
    Dim pName As String
    Dim pShortName As String
    Dim pSMR As String, p_FSR As String
    Dim pAbbreviatedName As String
    Dim pCustomerTypeCode As String
    Dim pCountry As String
    Dim pPhoneNum As String
    Dim pAddress1 As String
    Dim pAddress2 As String
    Dim pAddress3 As String
    Dim pAddress4 As String
    Dim pZipCode As String
    Dim pCityCode As String
    Dim pCountryCode As String
    Dim pTaxCode As String
    Dim pVATCountry As String
    Dim pTaxCertNumber As String
    Dim pVATRegistration As String
    Dim pTaxCertExpDate As String
    Dim pWMSContact As String
    Dim papprover_1 As String
    Dim papprover_1_id As String
    Dim papprover_2 As String
    Dim papprover_2_id As String
    Dim papprover_3 As String
    Dim papprover_3_id As String
    Dim a1 As Integer


    Set oShell = CreateObject("Shell.Application")

    For Each oWin In oShell.Windows
        If InStr(1, oWin.LocationName, "Customer Setup", vbTextCompare) > 0 Then
            'ActiveCell.Cells(3, 4) = "loc"
            Set IE = oWin
            Exit For
        End If
    Next oWin

    If IE Is Nothing Then Exit Function

    Do While IE.ReadyState <> 4
        DoEvents
    Loop

    'Delay 5

    pCustNumber = IE.Document.getelementbyid("p_CustNumber")
    pCustNumber.Value = ThisWorkbook.Sheets("sheet2").Range("A3")

'
'        With IE
'            For Each oCtrl In .Document.getElementsByTagName("input")
'                'If oCtrl.Name = "p_CustNumber" Then
'                    pCustNumber = .Document.getElementsByTypeName("p_CustNumber").Value
'                'End If
'                    ActiveCell.Cells(3, 3) = pCustNumber
'                    'a1 = IE.Document.getelementsbyid("p_CustNumber").innerHTML
''                    a1 = .Document.getElementsByTagName("p_CustNumber").Value
''                    ActiveCell.Cells(3, 3) = a1
''                End If
'            Next
'    End With
End Function

'Dim oDO As MSForms.DataObject
'    Dim s           As String
'
'    Set oDO = New DataObject
'    oDO.GetFromClipboard
'
'    On Error Resume Next
'    s = oDO.GetText
'    If Err.Number Then
'        MsgBox "Nothing on the clipboard!"
'
'    Else
'        s = Replace(s, Chr(160), " ")
'        s = Replace(s, vbLf, " ")
'        s = Replace(s, vbCr, " ")
'        s = WorksheetFunction.Clean(WorksheetFunction.Trim(s))
'        Range("A3").Value = s
'    End If
'End Function

input type="hidden" name="event" value="" /
input type="hidden" name="p_CustNumber" value="000168262" /
input type="hidden" name="p_CustSuffix" value="B" /
input type="hidden" name="p_ShipTo" value="" /
input type="hidden" name="p_sync_token_site_details"   value="d154e38274fdda7de63995e180e1bde0" /
input type="hidden" name="_forceModify" value="" /
input type="hidden" name="CloneAlertCount" value="0" /

input type="hidden" name="p_RequestNumber" value="1903862" /
input type="hidden" name="p_RejectReason" value="1" /
input type="hidden" name="p_activityComments" value="" /
input type="hidden" name="p_ccEmail" value="" /