Bom dia. Criei uma dll chamado soma.dll: Public Function soma(a As Integer, b As Integer) As Integer c = a + b End Function Agora estou tentando usa-la em um projeto: Private Sub Command1_Click() Set x = New Somar.f_Soma Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text Text3.Text = x.soma(a, b ) End Sub Ele esta retornando 0 no campo text3. Onde estou errando? Obrigado