Muestro el script que he hecho haber si es válido, ignorad lo último que he publicado fijaros, por favor, en este último código haber si es correcto:
Código vb:
Ver originalOption Explicit
Dim a, b, c
a = InputBox("Introduce Numero 1:")
b = InputBox("Introduce Numero 2:")
c = InputBox("Introduce Numero 3:")
If (( a > b) && (a > c)) Then
If (b > c)
MsgBox(c, b, a)
Else
MsgBox(b, c, a)
End If
If (( b > a) && (b > c)) Then
If (a > c)
MsgBox(c, a, b)
Else
MsgBox(a, c, b)
End If
If (( c > a) && ( c > b)) Then
If ( a > b)
MsgBox(b, a, c)
Else
MsgBox(a, b, c)
End If