Elavoracion de un examen en vb 6.0

Me gustaria pasar un programa de examen que tengo en vb orientado a excel a visual basic 6.0 pero no puedo hacerlo.
Este es el codigo del programa en excel:
Private Sub cmdSiguiente_Click()
x = Val(lblNo.Caption)
bueno = Sheets("examen").Range("g" & x).Value
'**********front Page**********************
If Sheets("examen").Range("b" & x).Value = "FRONT PAGE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso correcto", , "Conversa")
front = front + 1
lblFront = front
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********corel**********************
If Sheets("examen").Range("b" & x).Value = "DRAW" Or Sheets("examen").Range("b" & x).Value = "PHOTO PAINT" Or Sheets("examen").Range("b" & x).Value = "RAVE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Corel = Corel + 1
lblDiseño = (Corel / 2)
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********word**********************
If Sheets("examen").Range("b" & x).Value = "WORD" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
word = word + 1
lblWord = word
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********WINDOWS**********************
If Sheets("examen").Range("b" & x).Value = "WINDOWS" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
windowsX = windowsX + 1
lblW = windowsX
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********coi**********************
If Sheets("examen").Range("b" & x).Value = "COI" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Coi = Coi + 1
lblCoi = Coi
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********Noi**********************
If Sheets("examen").Range("b" & x).Value = "NOI" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Noi = Noi + 1
lblNoi = Noi
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********sae**********************
If Sheets("examen").Range("b" & x).Value = "SAE" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Sae = Sae + 1
lblSae = Sae
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********EXCEL**********************
If Sheets("examen").Range("b" & x).Value = "EXCEL" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Excelx = Excelx + 1
lblExcel = Excelx
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********html**********************
If Sheets("examen").Range("b" & x).Value = "HTML" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
html = html + 1
lblHtml = html
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********VISUAL**********************
If Sheets("examen").Range("b" & x).Value = "VISUAL" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Visual = Visual + 1
lblVisual = Visual
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********POWER**********************
If Sheets("examen").Range("b" & x).Value = "POWER" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Power = Power + 1
lblPower = Power
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********MANTENIMIENTO**********************
If Sheets("examen").Range("b" & x).Value = "MANTENIMIENTO" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Mantenimiento = Mantenimiento + 1
lblMan = Mantenimiento
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********ACCESS**********************
If Sheets("examen").Range("b" & x).Value = "ACCESS" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Access = Access + 1
lblAccess = Access
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********PUBLISHER**********************
If Sheets("examen").Range("b" & x).Value = "PUBLISHER" Then
If UCase(correcto) = UCase(bueno) Then
Z = MsgBox("inciso Correcto", , "Conversa")
Publisher = Publisher + 1
lblPublisher = Publisher
Else
Z = MsgBox("inciso inCorrecto", , "Conversa")
End If
End If
'**********Cargar pregunta***********
lblNo.Caption = x + 1
x = x + 1
lblPuntos = ((html / 35) * 100)
If Sheets("examen").Range("a" & x).Value = "*" Then
Z = MsgBox("termino el examen, su promedio es de :" & Int(lblPuntos), ,...