没看明白你这个是什么意思.
把程序要做的功能写一下.

以下是我的全部程序：
Option Explicit

Private Sub Form_Load()

End Sub

Private Sub mnuDecimal_Click()
Answer = GetValue(
.Text)
mnuOctal.Checked = False
mnuDecimal.Checked = True
mnuHex.Checked = False
txtNumberBox.Text = Format$(Answer)
End Sub

Private Sub mnuHex_Click()
Answer = GetValue(txtNumberBox.Text)
mnuOctal.Checked = False
mnuDecimal.Checked = False
mnuHex.Checked = True
txtNumberBox.Text = Hex$(Answer)
End Sub

Private Sub mnuOctal_Click()
Answer = GetValue(txtNumberBox.Text)
mnuOctal.Checked = True
mnuDecimal.Checked = False
mnuHex.Checked = False
txtNumberBox.Text = Oct$(Answer)
End Sub

Private Function GetValue(ByVal Digits$)
  If mnuOctal.Checked Then
    GetValue = Val("&H" + LTrim$(Digits$) + "&")
  ElseIf mnuDecimal.Checked Then
    GetValue = Val(Digits& + "&")
   Else
     GetValue = Val("&H" + LTrim$(Digits$) + "&")
    End If
    End Function 

说txtNumberBox变量未定义，请教高手了

你的诫勉应该有一个文本框叫做txtNumberBox你看一下有没有
有了再说

把你的程序发上来，我门帮你该