SADD, VARSEG and DEF SEG functions

[ATD]

Please explain the following code. I'm programming in VB 6 and looking for equivalent piece of code in Visual Basic.
..............................
a& = SADD(Buffer$)
a& = a& - 65536 * (a& < 0)
BufferSeg = VARSEG(Buffer$) + (A& \ 16)
Address = a& And 15
EndAddress = Address + BufferLength
DEF SEG = BufferSeg
..............................

Thanks very much

 

[hardkor1001110]

Here's a pretty good explanation by logiclrd from when I asked the exact same question:

faq314-290