[Resolvido]Como fazer um Módulo que integre várias funções diferentes?

Bom dia, amigos do Forum.
Com a ajuda de vocês estou me aventurando a fazer alguns módulos e funções. Agora que já criei vários módulos, e que funcionaram, isoladamente, quero saber se tem como integra-los num módulo apenas. Explicando melhor:
Criei (ou melhor, criamos) os módulos a seguir:
1) ModPontosPorIdade
2) ModPontosColesterolSexo
3) ModPtsHDL
4) ModPtsPressaoSexo
5) ModPtsDiabetes
6) ModPtsTabagismo
7) Função que soma os Pontos obtidos
ModRiscoCaVasc (que calcula o risco em função do total de pontos)

A minha dúvida é se isso é possível e como eu faço.

Anexo envio os códigos que foram feitos, no Word.

Obrigado

Walter

Boa tarde,

Public Function RiscoCaVasc(Idade As Byte,SexoMF As String,ColesterolTotal As Integer,HDLColesterol as Integer,PASistólica As Integer, PATratada As String,Diabetes as string,Tabagismo as string) As String
RiscoCaVasc= PtsIdadeSexo(Idade, SexoMF)
RiscoCaVasc=RiscoCaVasc + PtsColesterolSexo(ColesterolTotal, SexoMF)
RiscoCaVasc=RiscoCaVasc + PtsHDLColesterol(HDLColesterol)
RiscoCaVasc=RiscoCaVasc + PtsPressaoSexo(PASistólica, PATratada, SexoMF)
if Diabetes="S" then
if SexoMF="M" then
RiscoCaVasc=RiscoCaVasc+3
else
RiscoCaVasc=RiscoCaVasc+4
end if
end if
if Tabagismo="S" then
if SexoMF="M" then
RiscoCaVasc=RiscoCaVasc+4
else
RiscoCaVasc=RiscoCaVasc+3
end if
end if
End Function

Boa, Alexandre.
Muito obrigado, mais uma vez!
Esse que você fez corresponde ao item 7. O item 8 acho que dou conta de fazer seguindo a mesma lógica...

Mas e quanto a integrar todos esses módulos em um só. É possivel? Como seria um módulo com várias funções?

Um abraço,

Walter

Public Function RiscoCaVasc(Idade As Byte,SexoMF As String,ColesterolTotal As Integer,HDLColesterol as Integer,PASistólica As Integer, PATratada As String,Diabetes as string,Tabagismo as string) As String
Dim ValRiscoCaVasc as integer

ValRiscoCaVasc= PtsIdadeSexo(Idade, SexoMF)
ValRiscoCaVasc=ValRiscoCaVasc + PtsColesterolSexo(ColesterolTotal, SexoMF)
ValRiscoCaVasc=ValRiscoCaVasc + PtsHDLColesterol(HDLColesterol)
ValRiscoCaVasc=ValRiscoCaVasc + PtsPressaoSexo(PASistólica, PATratada, SexoMF)
if Diabetes="S" then
if SexoMF="M" then
ValRiscoCaVasc=ValRiscoCaVasc+3
else
ValRiscoCaVasc=ValRiscoCaVasc+4
end if
end if
if Tabagismo="S" then
if SexoMF="M" then
ValRiscoCaVasc=ValRiscoCaVasc+4
else
ValRiscoCaVasc=ValRiscoCaVasc+3
end if
end if
End Function

Select Case SexoMF
Case "M"
Select Case ValRiscoCaVasc
Case Is < 11
RiscoCaVasc = "Risco Baixo"
Case 11 To 14
RiscoCaVasc = "Risco Médio"
Case Is > 14
RiscoCaVasc = "Risco Alto"
End Select

Case "F"
Select Case ValRiscoCaVasc
Case Is < 13
RiscoCaVasc = "Risco Baixo"
Case 13 To 18
RiscoCaVasc = "Risco Médio"
Case Is > 18
RiscoCaVasc = "Risco Alto"
End Select
End Select
End Function

Muito bom Alexandre.
Obrigado mais uma vez.

Um abraço,

Walter