Deste jeito:
Module Module1
Sub Main()
dim porcentagem as double
dim valor as double
dim resultado as double
valor=100;
porcentagem=10;
resultado= valor*(porcentagem/100)
Console.WriteLine(pocentagen &"% de "& valor & " é "& resultado)
Console.ReadKey()
End Sub
End Module
att
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------