Ajuda com VBScript

[Mick Newbie]

Boa noite a todos ,sou novato na area de programação e estou tentando desenvolver umas ferramentas pra trabalhar SAP no caso usando vbscript.

O problema é o seguinte quando rodo meu codigo aparece o seguinte erro:

Tipos incompativeis:'p1'

o codigo:

function Submenu ()
b1 = InputBox ("Escolha uma opção"& vbCrLf &_
"1-----------------Saldo Dap-Doa" & vbcrlf &_
"2-----------------Saldo Ship for repair" & vbCrLf &_
"3-----------------Saldo J-process"& vbCrLf &_
"4-----------------Voltar ao menu anterior","                            Sub-Menu")
If IsNumeric (b1) Then
Select Case b1

Case 1

Case 2

Case 3

Case 4
Call Menuprincipal
End Select
Else
msgbox "Inseira somente numeros"
End If
If b1 > 4 Then
MsgBox "Opção invalida"
End if

End function

function Menuprincipal ()
p1 = InputBox ("Escolha o que ira fazer"& vbCrLf &_
"1----------------Canibalização de pci" & vbCrLf &_
"2----------------Canibalização de Kit para Dap-Doa" & vbCrLf &_
"3----------------Canibalização de Kit para Dapdoa pci" & vbCrLf &_
"4----------------Subcontratar  de Dap-doa pra Dap-doa" & vbCrLf &_
"5----------------Transferencia de Bin" & vbCrLf &_
"6----------------Confirmação de T.os em lista" & vbCrLf &_
"7----------------Proximo Menu","                        Escolha uma opção")

If IsNumeric (p1) Then

Select Case p1

Case 1

Case 2

Case 3

Case 4

Case 5

Case 6

Case 7
    Call Submenu
End Select
Else 
MsgBox"Insira Somente numeros"
End If
if    p1 > 7 Then
MsgBox "Opção invalida"
End if
End function

Call Menuprincipal

agradeço muito pela ajuda =D , abraços a todos.

Editado Janeiro 24, 2012 por kuroi
Adicionar tag CODE

[Densyy]

Ainda n intendi muito bem , o que você quer fazer

Mais parece ser algo de escolhas

E isso n parece dificil

Vou fazer aqui um pequeno exemplo

e assim q tiver pronto de mando

Esse seu codigo só complicou muito uma coisa simples ^^

Editado Janeiro 24, 2012 por Densyy

[Densyy]

Aqui esta o link ...

http://www.mediafire.com/?0r35hvdix0o83fl

[kuroi]

qual a linha do erro??

não seria essa??

if    p1 > 7 Then

você tem certeza q p1 é numerico nesse momento?? se tiver, tente assim:

if    CInt(p1) > 7 Then

[Mick Newbie]

Aqui esta o link ...

http://www.mediafire.com/?0r35hvdix0o83fl

beleza baixei aqui vou conferir.

qual a linha do erro??

não seria essa??

if    p1 > 7 Then

você tem certeza q p1 é numerico nesse momento?? se tiver, tente assim:

if    CInt(p1) > 7 Then

Bom tentei do jeito q você me falou.,porem deu o mesmo erro só que com um diferencial (tipos imcopativeis:'CInt')

esse script é somente um menuzinho.

[kuroi]

O que você digitou no InputBox()??

Será que o como tem espaços entre o If e o p1, o SAP não aceita??

Editado Janeiro 25, 2012 por kuroi