Crear formulario en visual basic

Module Module1
    Sub Main()
        Dim hora As Decimal
        Console.WriteLine(" ingrese el numero de horas trabajadas ")
        hora = CDec(Console.ReadLine)
        Console.WriteLine(vbCrLf & " el total a pagar es de : $" & pago(hora))
        Console.ReadKey()
    End Sub
    Function pago(h As Decimal) As Decimal
        Dim total As Decimal
        If h <= 160 Then
            total = (h * 6.5)
        Else
            total = ((160 * 6.5) + (h - 160) * 7.5)
        End If
        Return total
    End Function
End Module

Buenos días ese es mi código, quiero crear un formulario con el pero me da error, podrían sustituir donde dice Console. WriteLine por las herramientas de la texbox que van en cada uno