100分请教一个问题

请问如何把下面的代码转换成VB的代码？
function GetIdeDiskSerialNumber(var SN,MN,FR:PChar;var TAS,SP:ULong;var SPT:Word):Boolean;external Dll;procedure TForm1.btn_HDInfoClick(Sender: TObject);
var
  S1, S2, S3: pchar;
  W5: Word;
  W4, W3: ULong;
begin
  Memo1.Clear;
  GetIdeDiskSerialNumber(S1, S2, S3, W3, W4, W5);
  Memo1.Lines.Add('Type：' + S1);
  Memo1.Lines.Add('Model：' + S2);
  Memo1.Lines.Add('Ver：' + S3);
  Memo1.Lines.Add('TotalAddressableSectors：' + inttostr(W3));
  Memo1.Lines.Add('SectorCapacity：' + IntToStr(W4));
  Memo1.Lines.Add('SectorsPerTrack：' + IntToStr(W5));
end;
‘-------------------------------type
  TCPUMSG = record
     ID1    : PChar;
     ID2    : PChar;
     ID3    : PChar;
     ID4    : PChar;
     PValue : PChar;
     FValue : PChar;
     MValue : PChar;
     SValue : PChar;
     Vendor : PChar;
  end;  
function GetCPUMSG:TCPUMSG;stdcall; external Dll name 'GetCPUMSG';procedure TForm1.Btn_CpuIDClick(Sender: TObject);
var
  cups:TCPUMSG;
begin
  Memo1.Clear;
  cups:=GetcpuMSG;
  Memo1.Lines.Add('ID1:'+cups.ID1);
  Memo1.Lines.Add('ID2:'+cups.ID2);
  Memo1.Lines.Add('ID3:'+cups.ID3);
  Memo1.Lines.Add('ID4:'+cups.ID4);
  Memo1.Lines.Add('Vendor:'+cups.Vendor);end;