Нужно сделать из Паскаля в VBA, а вот в нем я вообще не умею

Program prim_8;
uses crt;
Var s1,s2, s3:real;
Begin
    clrscr;
    Write('введите рост трёх человек');
    Readln(s1, s2, s3);
    If (s1 = s2) and (s1 = s3) then writeln ('Рост одинаковый!') 
        Else writeln ('Рост неодинаковый!');
ReadKey;
End.