Relaying information from PHP Script/MySQL

[WoF]

As I understand yout PHP, you use an ftp connection to download a specific html document and split it up to read certain content.

First to establish an ftp connection you'd possibly use the INET control (I'm only talking VB6 here), which is read into a variable named info. You'd have to look up on details of how to do this.

VB6 nows a Replace command similar to your PHP str_replace.
To substitute the explode function you'd use Split() in VB6.
Let's assume we have the loaded page in a var named Info, which is declared and filled elsewhere
I'd make an attempt to show you a translation of your PHP to VB6

  'we have to declare variales in VB
  Dim SplitRes() as string 'the result array of the explode
  Dim title$, i%, count%

  '$info = str_replace('</body></html>', "", $info);  
  Info = Replace(Info,"</body></html>", "")

  '$split = explode(',', $info);
  SplitRes = Split(Info, ",")

  'if (empty($split[6])) {
  If SplitRes(6) = "" Then
     '$title = "No song is currently playing ";
     title = "No song..."
  '} else {
  Else
      '$count = count($split);
      count = UBound(SplitRes)
      '$i = "6";
      i = 6
      'while($i<=$count) {
      While i < count
          'if ($i > 6) {
          If i > 6 Then

          '  $title .= ", " . $split[$i];
          ' } else {
          '   $title .= $split[$i];
       ' }
          End If
       '$i++;
       i = i+1
     '}
    Wend
  '}
  End If
  '$title = substr($title, 0, -2);
  '???
  ' print $title;

There are some gaps there, because I'm not sure of PHP
a) how the .= operater works, so what is the result of $title .= "," . $split[$i]
b) how the substr function works and what its parameters are.

Also the above is simply a free-hand-attempt.
We could rewrite the loop to working VB6 code, if you could post the contents of such an Info string and explain the above mentioned functions.