Need Help Please

I have a HW problem that I am able to get it to work with using select case, but I know that there is a much easier method, like a If...Then statement, however it doesn't work

This is a HW? I am using Visual Basics 2010 Express

I need to create an application that calculates and displays a customer's bill. Business customers must have at least one connection. Be sure to use one or more independent sub or Function procedures in the application.

Business customers: Processing fee = $16.50; Basic Service fee = $80 for the first 10 connections and $4 for each additional connections; Premium channels = $50 per channel for any number of connections

Here is the code that I am able to have work, need help consolidating:

Option Explicit On
Option Strict On

Public Class MainForm

Private Function CalcBusiness(ByVal process1 As Double, ByVal service1 As Double, ByVal price1 As Double) As Double
' add basic charges for business customers to calculate the total of a cable bill

Private Function CalcResidential(ByVal process2 As Double, ByVal service2 As Double, ByVal price2 As Double) As Double
' add basic charges for residential customers to calculate the total of a cable bill