diff --git a/dlls/vbscript/lex.c b/dlls/vbscript/lex.c
index 8bad3832f9f..e0a9418a8f3 100644
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -319,7 +319,9 @@ static int parse_next_token(void *lval, parser_ctx_t *ctx)
         int ret = check_keywords(ctx);
         if(!ret)
             return parse_identifier(ctx, lval);
-        return ret;
+        if(ret != tREM)
+            return ret;
+        c = '\'';
     }
 
     switch(c) {
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 2966453c3c1..17c92e56606 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -611,6 +611,8 @@ Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled)
 x = "following ':' is correct syntax" :
 x = "following ':' is correct syntax" :: :
 :: x = "also correct syntax"
+rem another ugly way for comments
+x = "rem as simplestatement" : rem rem comment
 :
 
 Set obj = new EmptyClass