this is what i ended up with, but it has no safety steps in it. any idea how i can add some
If GetSelectedTool()=GetCurrentTool() Then
End If


If GetSelectedTool =1 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig1)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If







If GetSelectedTool =2 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig2)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If






If GetSelectedTool =3 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig3)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =4 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig4)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =5 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig5)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =6 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig6)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =7 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig7)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =8 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig8)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If
End