Function GetHash(ByVal txt$) As Variant
    Set objConn = CreateObject("ADODB.Connection")
    ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Tasks;Data Source=ab-v-cpdb12"
    objConn.ConnectionString = ConnectString
    objConn.ConnectionTimeout = 15
    objConn.CommandTimeout = 30
    objConn.Open
    Set objRecordset = objConn.Execute("SELECT dbo.GetHash('" + txt$ + "')")
    Do While Not objRecordset.EOF
        GetHash = vbTab & objRecordset(0)
        objRecordset.MoveNext
    Loop
    objConn.Close
    Set objConn = Nothing
    Set objRecordset = Nothing
End Function

Sub FacebookProfileLoader()
Dim rowCount As Long
rowCount = Range("A1").End(xlDown).Row
MsgBox rowCount
For i = 1 To rowCount
 curentValues = Cells(i, 1)
 Cells(i, 2) = GetHash(curentValues)
Next i
End Sub

declare @b binary(16) = 0x35396716D89A19BDD3CD08179DAC9D83;
select convert(varchar(max), @b, 1)  as stringHex

Set objRecordset = objConn.Execute("SELECT  convert(varchar(max), dbo.GetHash('" + txt$ + "'), 1) as hexString")