写VB,画流程图.输入任意实数x,求1/(x-5)的绝对值 若分母为零则输出"有误"急求啊 ,今天就要

写VB,画流程图.输入任意实数x,求1/(x-5)的绝对值 若分母为零则输出"有误"
急求啊 ,今天就要

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("请输入一个不为0数"))
Text1 = Abs(1 / (a - 5))
If a