Помогите перевести наипростейшую программу в Visual Basic из Delphi

[Cooler]

Помогите перевести ПРОСТУЮ (но не для меня) программу из Delphi в Visual Basic
(и расшифровать две строки программы). Программа должна считать массив из 4-х байт
и переворачивая старшинство байтов поместить в переменную с коррекцией в float.
p1 := @bb[0]; ДВЕ ПРОБЛЕМНЫЕ СТРОКИ
Edit1.Text := Format('%f',[p1^]); ЧТО ОНИ ЗНАЧАТ ПОДРОБНО?
На Delphi все работает. Тест-попытки ниже.
=================================== ==================================
Delphi

unit exp_float;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var p1 : Psingle;
bb : array[0..3] of byte;
begin
bb[3]:= StrToInt(Edit2.Text);
bb[2]:= StrToInt(Edit3.Text);
bb[1]:= StrToInt(Edit4.Text);
bb[0]:= StrToInt(Edit5.Text);
p1 := @bb[0]; ДВЕ ПРОБЛЕМНЫЕ СТРОКИ
Edit1.Text := Format('%f',[p1^]); ЧТО ОНИ ЗНАЧАТ?
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.

=================================== ==================================
Visual Basic
Private Sub Command1_Click()

Dim bytBB(3) As Byte
Dim byte_0 As String
Dim byte_1 As String
Dim byte_2 As String
Dim byte_3 As String
Dim lngP1 As Long
Dim sngP2 As Single
Dim strP3 As String

byte_0 = Text1.Text
byte_1 = Text2.Text
byte_2 = Text3.Text
byte_3 = Text4.Text
bytBB(0) = CByte(byte_0)
bytBB(1) = CByte(byte_1)
bytBB(2) = CByte(byte_2)
bytBB(3) = CByte(byte_3)
lngP1 = bytBB(3) * 256 ^ 3 + bytBB(2) * 256 ^ 2 + bytBB(1) * 256 ^ 1 + bytBB(0)
sngP2 = CSng(lngP1)
strP3 = CStr(sngP2)
Text5.Text = strP3
End Sub
=================================== =================================== ========

[Cooler]

помогите всего 2 строчки перевести? а?