I have a litle problem i hope some can help me with.
I am doing a program to send out a Picture message, and ind that case i need to convert the binaery streng i get from my BMP-file to and HEX that i need, for sending out the picture message.
But the bin-string i get is 2014 long, and when i try do to 2^2014 ind Visual Bacis, it comes with and overflow.
Can someone please help me here.
This is code i use:
Function fncBinToHex(strBin As String) As String
Dim intI As Variant
Dim lngTemp As Variant
lngTemp = 0
For intI = 1 To Len(strBin)
If Mid(strBin, intI, 1) = "1" Then lngTemp = lngTemp + 2 ^ (Len(strBin) - intI)
fncBinToHex = Hex(lngTemp)