NameSilo

Help a beginner please. I don't know what to do with this code.

Spacemail by SpaceshipSpacemail by Spaceship
Watch

Erdy

VIP Member
Impact
115
Hi,
Can somebody please give me step by step instructions to make this code working? Can I make it working on ms excel? I tried but didn't succeed. Do I create an online file? Somebody mentioned the word "module". I did a google search but couldn't figure out how to proceed. I need simple instructions. something like this:
1. open ms excel
2. press CTRL + ...

or
1. on your website under public html folder create a file and name it abc.de
2. edit the file and paste the code

I hope somebody can help me.

http://binaryworld.net/Main/CodeDetail.aspx?CodeId=845


' Convert the input word from singular to plural
Function SingularToPlural(ByVal singular As String) As String
' convert to lowercase for easier comparison
Dim lower As String = singular.ToLower()
Dim res As String

' rule out a few exceptions
If lower = "foot" Then
res = "Feet"
ElseIf lower = "goose" Then
res = "Geese"
ElseIf lower = "man" Then
res = "Men"
ElseIf lower = "woman" Then
res = "Women"
ElseIf lower = "criterion" Then
res = "Criteria"
' plural uses "ies" if word ends with "y" preceeded by a non-vowel
ElseIf lower.EndsWith("y") AndAlso "aeiou".IndexOf(lower.Substring _
(lower.Length - 2, 1)) < 0 Then
res = singular.Substring(0, singular.Length - 1) + "ies"
Else
res = singular + "s"
End If

' the result must preserve the original word's capitalization
If singular = lower Then
Return res.ToLower() ' it was an all-lowercase word
ElseIf singular = singular.ToUpper() Then
Return res.ToUpper() ' it was an all-uppercase word
Else
Return res ' return whatever is in "res"
End If
End Function
 
0
•••
The views expressed on this page by users and staff are their own, not those of NamePros.
GoDaddyGoDaddy
Module = a file you can make in VB to stick code in, its not a form, just a place to store code.

Should be something like:
File -> New -> Module
 
0
•••
Dynadot — .com Registration $8.99Dynadot — .com Registration $8.99

We're social

Unstoppable Domains
Domain Recover
DomainEasy — Zero Commission
  • The sidebar remains visible by scrolling at a speed relative to the page’s height.
Back