C++ -> VB

How do to coding this C code in VB, thanks !

GLfloat specular[] = {1.0,1.0,1.0,1.0 };
glMaterialfv(GL_FRONT,GL_SPECULAR,
specular);

GLfloat specular[] = {1.0,1.0,1.0,1.0 };
glMaterialfv(GL_FRONT,GL_SPECULAR,
specular);

Dim spec(0 to 3) as GLFloat

Spec(0)=1
Spec(1)=1
Spec(2)=1
Spec(3)=1
glMaterialfv GL_FRONT, GL_SPECULAR, spec(0)