extensions/test/ole/VisualBasic/Module1.vb |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

New commits:
commit c8eb695574986fdda5147adf958432c31a354592
Author:     Andrea Gelmini <andrea.gelm...@gelma.net>
AuthorDate: Tue Jun 27 14:35:12 2023 +0200
Commit:     Julien Nabet <serval2...@yahoo.fr>
CommitDate: Wed Jun 28 07:05:10 2023 +0200

    Fix typo
    
    Change-Id: I41ca7f8c9b998436f0b2810236161697e9f501c8
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/153675
    Tested-by: Jenkins
    Reviewed-by: Julien Nabet <serval2...@yahoo.fr>

diff --git a/extensions/test/ole/VisualBasic/Module1.vb 
b/extensions/test/ole/VisualBasic/Module1.vb
index 63b8bbdeb17f..56b83beb3cea 100644
--- a/extensions/test/ole/VisualBasic/Module1.vb
+++ b/extensions/test/ole/VisualBasic/Module1.vb
@@ -477,14 +477,14 @@ Public Sub Main()
                objOleTest2.AttrAny2 = "VBString "
 
                'testinout_methodXInterfaces substitutes the argument with the 
object set in in_methodXInterface
-               objOleTest.AttrAny2 = "VBString  this string was written in the 
UNO component to the inout pararmeter"
+               objOleTest.AttrAny2 = "VBString  this string was written in the 
UNO component to the inout parameter"
                objOleTest.in_methodXInterface(objOleTest)
                objOleTest.testinout_methodXInterface2(objOleTest2)
                Dim tmpVar As Object
                tmpVar = System.DBNull.Value
                tmpVar = objOleTest2.AttrAny2
                Debug.Print("in: Uno out: the same object // " & CStr(tmpVar))
-               If tmpVar <> "VBString  this string was written in the UNO 
component to the inout pararmeter" Then
+               If tmpVar <> "VBString  this string was written in the UNO 
component to the inout parameter" Then
                        MsgBox("error")
                End If
 

Reply via email to